home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Goodies / NAMESP~1 / DDTREE4.FR_ / DDTREE4.FR
Text File  |  1997-06-04  |  4KB  |  126 lines
  1. VERSION 5.00
  2. Object = "{688EB628-7DA2-11D0-95F0-0020AF07755A}#1.1#0"; "awddtree.ocx"
  3. Begin VB.Form frmSample4 
  4.    ClientHeight    =   5325
  5.    ClientLeft      =   1755
  6.    ClientTop       =   1620
  7.    ClientWidth     =   7785
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form1"
  10.    MDIChild        =   -1  'True
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   5325
  13.    ScaleWidth      =   7785
  14.    WindowState     =   2  'Maximized
  15.    Begin VB.FileListBox File1 
  16.       Height          =   2040
  17.       Left            =   300
  18.       TabIndex        =   7
  19.       Top             =   2880
  20.       Width           =   4755
  21.    End
  22.    Begin VB.DirListBox Dir1 
  23.       Height          =   2955
  24.       Left            =   5280
  25.       TabIndex        =   3
  26.       Top             =   2160
  27.       Width           =   2175
  28.    End
  29.    Begin VB.TextBox Text1 
  30.       BackColor       =   &H8000000F&
  31.       Height          =   1275
  32.       Left            =   300
  33.       Locked          =   -1  'True
  34.       MultiLine       =   -1  'True
  35.       ScrollBars      =   2  'Vertical
  36.       TabIndex        =   5
  37.       Text            =   "DDTree4.frx":0000
  38.       Top             =   420
  39.       Width           =   7155
  40.    End
  41.    Begin AWDDTREE.DDTree DDTree1 
  42.       Height          =   330
  43.       Left            =   300
  44.       TabIndex        =   1
  45.       Top             =   2160
  46.       Width           =   4815
  47.       _ExtentX        =   8493
  48.       _ExtentY        =   582
  49.       ControlMode     =   2
  50.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  51.          Name            =   "MS Sans Serif"
  52.          Size            =   8.25
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.    End
  60.    Begin VB.Label Label1 
  61.       Caption         =   "&FileListBox:"
  62.       Height          =   195
  63.       Index           =   3
  64.       Left            =   300
  65.       TabIndex        =   8
  66.       Top             =   2640
  67.       Width           =   1215
  68.    End
  69.    Begin VB.Label lblPath 
  70.       Height          =   195
  71.       Left            =   1560
  72.       TabIndex        =   6
  73.       Top             =   1920
  74.       Width           =   3495
  75.    End
  76.    Begin VB.Label Label1 
  77.       Caption         =   "&DirListBox:"
  78.       Height          =   195
  79.       Index           =   0
  80.       Left            =   5280
  81.       TabIndex        =   2
  82.       Top             =   1920
  83.       Width           =   1635
  84.    End
  85.    Begin VB.Label Label1 
  86.       Caption         =   "DropDown&Tree:"
  87.       Height          =   195
  88.       Index           =   1
  89.       Left            =   300
  90.       TabIndex        =   0
  91.       Top             =   1920
  92.       Width           =   1215
  93.    End
  94.    Begin VB.Label Label1 
  95.       Caption         =   "Browsing Drives and Parent Directories:"
  96.       Height          =   195
  97.       Index           =   2
  98.       Left            =   300
  99.       TabIndex        =   4
  100.       Top             =   180
  101.       Width           =   4695
  102.    End
  103. End
  104. Attribute VB_Name = "frmSample4"
  105. Attribute VB_GlobalNameSpace = False
  106. Attribute VB_Creatable = False
  107. Attribute VB_PredeclaredId = True
  108. Attribute VB_Exposed = False
  109. Option Explicit
  110.  
  111. Private Sub DDTree1_Click()
  112.     On Error Resume Next
  113.     Dir1.Path = DDTree1.Path
  114.     lblPath.Caption = DDTree1.Path
  115. End Sub
  116.  
  117. Private Sub Dir1_Change()
  118.     DDTree1.Path = Dir1.Path
  119.     lblPath.Caption = DDTree1.Path
  120.     File1.Path = Dir1.Path
  121. End Sub
  122.  
  123. Private Sub Form_Load()
  124.     Call Dir1_Change
  125. End Sub
  126.